"Exercicio 1.8"
"Raiz cúbica"

(define (raiz-cubica x) 
  (define (raiz-cubica-iter chute)
    (if (bom-suficiente? chute)
        chute
        (raiz-cubica-iter (melhora chute))))
  (define (bom-suficiente? chute)
    (= chute (melhora chute)))
  (define (melhora chute)
    (/ (+ (/ x (quadrado chute)) (* 2 chute)) 3))

  (raiz-cubica-iter 1.0))

(define (cubo x) (* x x x))
(define (quadrado x) (* x x))
